<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd">
<html><head><meta name="qrichtext" content="1" /><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /><style type="text/css">
p, li { white-space: pre-wrap; }
</style></head><body style=" font-family:'DejaVu Sans'; font-size:11pt; font-weight:400; font-style:normal;">
<p style="-qt-paragraph-type:empty; margin-top:16px; margin-bottom:12px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px; font-size:x-large; font-weight:600;"><br /></p>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><a name="aswift_0_expand"></a>Описание<br />Копирует и сжимает закрытую базу данных, предоставляя дополнительную возможность изменить версию, порядок символов при сортировке и состояние шифрования (только в рабочей области ядра <span style=" font-weight:600;">Microsoft Jet</span>).<br /></p>
<pre style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">DBEngine.CompactDatabase стараяБД, новаяБД, порядок, параметры, пароль</span></pre>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Параметры<br /><span style=" font-weight:600;">стараяБД</span><br />Выражение или переменная типа <span style=" font-weight:600;">String</span>, определяющая существующую закрытую базу данных. Следует указать полный путь и имя файла, например &quot;<span style=" font-weight:600;">C:\db1.mdb</span>&quot;. это поддерживается сетевой операционной системой, можно также указать сетевой путь к файлу, например, &quot;<span style=" font-weight:600;">\\server1\share1\dir1\db1.mdb</span>&quot;.<br /><span style=" font-weight:600;">новаяБД</span><br />Выражение или переменная типа <span style=" font-weight:600;">String</span>, содержащая полный путь к создаваемой сжатой базе данных. Для этого аргумента также допускается указание сетевого пути к файлу. В аргументе новаяБД нельзя задавать ту же базу данных, которая указана в аргументе стараяБД.<br /><span style=" font-weight:600;">порядок</span><br />Необязательный. Выражение или переменная типа <span style=" font-weight:600;">Variant</span>, содержащая строковое выражение, применяемое для определения порядка символов (национальной языковой), который будет использоваться в операциях сравнения и сортировки в базе данных, определяемой аргументом новаяБД, как указано ниже в разделе &quot;Значения&quot;. Если данный аргумент опущен, национальная настройка новой базы данных будет определяться порядком символов, заданным в старой базе данных.<br />Допускается также создание пароля для базы данных новаяБД путем слияния строки пароля (начинающейся с символов &quot;;pwd=&quot;) с константой в аргументе порядок, например:<br /></p>
<pre style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">dbLangCyrillic &amp; &quot;;pwd=МойПароль&quot;</span></pre>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Если требуется задать то же значение аргумента порядок, что и в базе данных стараяБД (значение по умолчанию), но указать новый пароль, достаточно ввести строку пароля как значение аргумента порядок: </p>
<pre style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">&quot;;pwd=НовыйПароль&quot;</span></pre>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">В аргументе порядок используются следующие константы, определяющих значение свойства <span style=" font-weight:600;">CollatingOrder</span>, т.е. язык, в соответствии с правилами которого определяется порядок символов, используемый при сравнении текстовых строк: </p>
<ul style="margin-top: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; -qt-list-indent: 1;"><li style=" margin-top:12px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangGeneral</span> - Английский, немецкий, французский, португальский, итальянский и современный испанский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangArabic</span> - Арабский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangChineseSimplified</span> - Упрощенный китайский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangChineseTraditional</span> - Традиционный китайский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangCyrillic</span> - Русский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangCzech</span> - Чешский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangDutch</span> - Голландский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangGreek</span> - Греческий. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangHebrew</span> - Иврит. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangHungarian</span> - Венгерский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangIcelandic</span> - Исландский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangJapanese</span> - Японский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangKorean</span> - Корейский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangNordic</span> - Скандинавские языки (только для версии ядра Microsoft Jet 1.0). </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangNorwDan</span> - Норвежский и датский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangPolish</span> - Польский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangSlovenian</span> - Словенский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangSpanish</span> - Традиционный испанский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangSwedFin</span> - Шведский и финский. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangThai</span> - Тайский. </li>
<li style=" margin-top:0px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbLangTurkish</span> - Турецкий. </li></ul>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">параметры</span><br />Необязательный. Константа или комбинация констант, которая определяет один или несколько параметров, как указано ниже в разделе &quot;Значения&quot;. Пользователь имеет возможность комбинировать параметры путем суммирования констант.<br />Следующие константы определяют в аргументе параметры режим шифрования или дешифрования базы данных во время сжатия: </p>
<ul style="margin-top: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; -qt-list-indent: 1;"><li style=" margin-top:12px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbEncrypt</span> - Шифрование базы данных при сжатии. </li>
<li style=" margin-top:0px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbDecrypt</span> - Дешифрование базы данных при сжатии. </li></ul>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Следующие константы, применяемые для задания значения аргумента параметры, позволяют установить формат конкретной версии для сжатой базы данных. Эти константы определяют только версию базы данных новаяБД и не влияют на формат любых объектов <span style=" font-weight:600;">Microsoft Access</span>, таких как формы или отчеты. </p>
<ul style="margin-top: 0px; margin-bottom: 0px; margin-left: 0px; margin-right: 0px; -qt-list-indent: 1;"><li style=" margin-top:12px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbVersion10</span> - Создание сжатой базы данных, в которой используется формат файла ядра базы данных Microsoft Jet версии 1.0. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbVersion11</span> - Создание сжатой базы данных, в которой используется формат файла ядра базы данных Microsoft Jet версии 1.1. </li>
<li style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbVersion20</span> - Создание сжатой базы данных, в которой используется формат файла ядро базы данных Microsoft Jet версии 2.0. </li>
<li style=" margin-top:0px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">dbVersion30</span> - Создание сжатой базы данных, в которой используется формат файла ядра базы данных Microsoft Jet версии 3.0 (совместимый с версией 3.5). </li></ul>
<p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><span style=" font-weight:600;">пароль</span><br />Необязательный. Выражение или переменная типа <span style=" font-weight:600;">Variant</span>, содержащая выражение, задающее пароль для базы данных с парольной защитой. Паролю должна предшествовать строка &quot;;pwd=&quot;. Если пароль задан в аргументе порядок, данный аргумент игнорируется.<br /></p>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Замечания<br />По мере изменения его содержимого файл базы данных может стать фрагментированным и занимать больше места на диске, чем необходимо. Для дефрагментации файла базы данных следует периодически проводить его сжатие с помощью метода <span style=" font-weight:600;">CompactDatabase</span>. Сжатие базы данных обычно приводит к экономии места на диске и часто повышает производительность. Кроме этого, при этом имеется возможность изменить порядок символов, используемый для операций сортировки, зашифровать или дешифровать базу данных или указать для базы данных формат другой версии.<br />Перед сжатием старой базы данных ее необходимо закрыть. В многопользовательской среде ни один из пользователей не сможет открыть базу данных стараяБД во время выполнения сжатия. Если стараяБД не закрыта или недоступна для монопольного доступа, возникает ошибка.<br />Поскольку в методе <span style=" font-weight:600;">CompactDatabase</span> создается копия базы данных, необходимо иметь достаточно места на диске как для исходной базы данных, так и для ее копии. При нехватке свободного пространства операция сжатия выполнена не будет. Новая база данных не обязательно должна находиться на том же диске, что и старая база данных. После успешного выполнения операции сжатия исходную базу данных можно стереть и присвоить сжатой базе данных старое имя.<br />Метод <span style=" font-weight:600;">CompactDatabase</span> копирует все данные и разрешения системы защиты базы данных стараяБД в базу данных новаяБД.<br />После преобразования с помощью метода <span style=" font-weight:600;">CompactDatabase</span> базы данных версии 1.x в формат версии 2.5 или 3.x, база данных может быть открыта только приложениями, использующими ядро <span style=" font-weight:600;">Microsoft Jet</span> версии 2.5 или 3.x.<br />В рабочей области <span style=" font-weight:600;">ODBCDirect</span> вызов метода <span style=" font-weight:600;">CompactDatabase</span> не приводит к возвращению ошибки, так как ядро <span style=" font-weight:600;">Microsoft Jet</span> при этом загружается в память.<br />Поскольку метод <span style=" font-weight:600;">CompactDatabase</span> не приводит к преобразованию объектов <span style=" font-weight:600;">Microsoft Access</span>, не рекомендуется его использовать для преобразования баз данных, содержащих такие объекты. Пользуйтесь для этого командой Преобразовать из подменю Служебные программы в меню Сервис <span style=" font-weight:600;">Microsoft Access</span>.<br /></p>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Пример<br />Следующая программа использует метод <span style=" font-weight:600;">CompactDatabase</span> для изменения порядка символов, используемого при сравнении текстовых строк или при сортировке в базе данных. Не допускается использование данной программы в модуле, принадлежащем базе данных <span style=" font-weight:600;">Борей.mdb</span>.<br /></p>
<pre style=" margin-top:12px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">Sub CompactDatabaseX()</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Dim dbsNorthwind As Database</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Set dbsNorthwind = OpenDatabase(&quot;Борей.mdb&quot;)</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Отображает свойства исходной базы данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	With dbsNorthwind</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print .Name &amp; &quot;, версия &quot; &amp; .Version</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print &quot;    Порядок символов = &quot; &amp; .CollatingOrder</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		.Close</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	End With</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Проверяет наличие файла, имеющего имя, которое </span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' будет присвоено сжатой базе данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	If Dir(&quot;БорейКорея.mdb&quot;) &lt;&gt; &quot;&quot; Then Kill &quot;БорейКорея.mdb&quot;</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Создает сжатую копию базы данных &quot;Борей&quot;,</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' в которой используется порядок символов</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' корейского языка.</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New'; font-style:italic;"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	DBEngine.CompactDatabase &quot;Борей.mdb&quot;, 	&quot;БорейКорея.mdb&quot;, dbLangKorean</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Set dbsNorthwind = OpenDatabase(&quot;БорейКорея.mdb&quot;)</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Отображает свойства сжатой базы данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	With dbsNorthwind</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print .Name &amp; &quot;, версия &quot; &amp; .Version</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print &quot;    Порядок символов = &quot; &amp; .CollatingOrder</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		.Close</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	End With</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">End Sub</span></pre>
<p style=" margin-top:12px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;">Следующая программа использует метод <span style=" font-weight:600;">CompactDatabase</span> для изменения версии базы данных. Для запуска этой программы необходимо иметь базу данных версии <span style=" font-weight:600;">Microsoft Jet 1.1</span> с именем <span style=" font-weight:600;">Nwind11.mdb</span>. Не допускается использование данной программы в модуле, принадлежащем базе данных <span style=" font-weight:600;">Nwind11.mdb</span>. </p>
<pre style=" margin-top:12px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">Sub CompactDatabaseX2()</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Dim dbsNorthwind As Database</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Dim prpLoop As Property</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Set dbsNorthwind = OpenDatabase(&quot;Nwind11.mdb&quot;)</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Отображает свойства исходной базы данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	With dbsNorthwind</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print .Name &amp; &quot;, версия &quot; &amp; .Version</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print &quot;    Порядок символов = &quot; &amp; .CollatingOrder</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		.Close</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	End With</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Проверяет наличие файла, имеющего имя, которое </span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' будет присвоено сжатой базе данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	If Dir(&quot;Nwind20.mdb&quot;) &lt;&gt; &quot;&quot; Then Kill &quot;Nwind20.mdb&quot;</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Создает сжатую и зашифрованную базу данных версии</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' Microsoft Jet 2.0 из базы данных Microsoft Jet</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New'; font-style:italic;">	' версии 1.1.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	DBEngine.CompactDatabase &quot;Nwind11.mdb&quot;, &quot;Nwind20.mdb&quot;, , dbEncrypt + dbVersion20</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	Set dbsNorthwind = OpenDatabase(&quot;Nwind20.mdb&quot;)</span></pre>
<pre style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px; font-family:'Courier New';"><br /></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	</span><span style=" font-family:'Courier New'; font-style:italic;">' Отображает свойства сжатой базы данных.</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	With dbsNorthwind</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Debug.Print .Name &amp; &quot;, версия &quot; &amp; .Version</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		For Each prpLoop In .Properties</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">			On Error Resume Next</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">			If prpLoop &lt;&gt; &quot;&quot; Then Debug.Print &quot;    &quot; &amp; prpLoop.Name &amp; &quot; = &quot; &amp; prpLoop</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">			On Error GoTo 0</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		Next prpLoop</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">		.Close</span></pre>
<pre style=" margin-top:0px; margin-bottom:0px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">	End With</span></pre>
<pre style=" margin-top:0px; margin-bottom:12px; margin-left:10px; margin-right:10px; -qt-block-indent:0; text-indent:0px;"><span style=" font-family:'Courier New';">End Sub</span></pre>
<p align="center" style="-qt-paragraph-type:empty; margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br /></p>
<hr />
<p align="center" style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><a href="http://www.firststeps.ru/vba/vbahelp/daohelp/r.php?12"><span style=" text-decoration: underline; color:#0000ff;">Предыдущий Шаг</span></a> | <a href="http://www.firststeps.ru/vba/vbahelp/daohelp/r.php?14"><span style=" text-decoration: underline; color:#0000ff;">Следующий Шаг</span></a> | <a href="http://www.firststeps.ru/vba/vbahelp/daohelp/daohelp1.html"><span style=" text-decoration: underline; color:#0000ff;">Оглавление</span></a></p></body></html>